Imports System.Data.OracleClient
Imports System.IO

Public Class clsTableDesign

  Dim mCmdData As OracleCommand
  Dim mDataAdapter As OracleDataAdapter
  Dim mDrData As OracleDataReader

  Public Function GetMaxColumSrno() As Long
    Dim lLngRtn As New Long
    Dim lStrQuery As String = String.Empty
    mPrRefreshConn()

    lStrQuery = "SELECT MAX(T.TAB_VRBL_SERIAL_NMBR) FROM TRDX_TABLE_COLUMNS T"

    mCmdData = New OracleCommand(lStrQuery, con)
    lLngRtn = mCmdData.ExecuteScalar

    Return lLngRtn
  End Function

End Class
